How do land use and climate change interactively impact shellfish aquaculture?
For my dissertation reserach, I would like to understand how human impacts (warming, runoff, etc.) affect shellfish aquaculture in California and abroad. I would like to start with a lab study where I manipulate temperature levels and runoff to see how they affect mussel (Mytilus galloprovincialis) and oyster (Crassostrea pacifica) growth and also monitor the oysters and mussels benig grown in the field over multiple years and compare their growth during drought & non-drought conditions. I’m hoping to measure traits that are of interest ecologists, growers, and nutritionists to get a full scope of how these human impacts affect relevant outcomes of shellfish aquaculture.
Mussel Culture along the Pirou Beach in France
library(htmlTable)
## Warning: package 'htmlTable' was built under R version 3.5.3
Storm_table <- storms %>%
na.omit(ts_diameter, hu_diameter) %>% # COULD ALSO USE drop_na HERE
group_by(status) %>%
summarize(mean_wind = mean(wind), mean_pressure = mean(pressure), mean_ts = mean(ts_diameter), mean_hu = mean(hu_diameter))
Storm_table$mean_wind <- round(Storm_table$mean_wind, digits = 2)
Storm_table$mean_pressure <- round(Storm_table$mean_pressure, digits = 2)
Storm_table$mean_ts <- round(Storm_table$mean_ts, digits = 2)
Storm_table$mean_hu <- round(Storm_table$mean_hu, digits=2)
htmlTable(Storm_table)
| status | mean_wind | mean_pressure | mean_ts | mean_hu | |
|---|---|---|---|---|---|
| 1 | hurricane | 87.15 | 966.35 | 288.11 | 72.96 |
| 2 | tropical depression | 28.21 | 1006.47 | 0 | 0 |
| 3 | tropical storm | 45.75 | 999.03 | 159.61 | 0.04 |
library(lubridate)
##
## Attaching package: 'lubridate'
## The following object is masked from 'package:base':
##
## date
storms_2010_2015 <- storms %>%
filter(year >= 2010) %>%
group_by(name, year) %>%
summarize(duration = diff(range(day)))
storms_2010_2015
## # A tibble: 84 x 3
## # Groups: name [?]
## name year duration
## <chr> <dbl> <int>
## 1 Al202011 2011 1
## 2 Alberto 2012 3
## 3 Alex 2010 29
## 4 Ana 2015 2
## 5 Andrea 2013 2
## 6 Arthur 2014 4
## 7 Barry 2013 3
## 8 Beryl 2012 3
## 9 Bill 2015 2
## 10 Bonnie 2010 2
## # ... with 74 more rows
map2_chr(.x = storms_2010_2015$name, .y = storms_2010_2015$duration, function(x,y) paste("Hurricane", x, "lasted", y, "days"))
## [1] "Hurricane Al202011 lasted 1 days"
## [2] "Hurricane Alberto lasted 3 days"
## [3] "Hurricane Alex lasted 29 days"
## [4] "Hurricane Ana lasted 2 days"
## [5] "Hurricane Andrea lasted 2 days"
## [6] "Hurricane Arthur lasted 4 days"
## [7] "Hurricane Barry lasted 3 days"
## [8] "Hurricane Beryl lasted 3 days"
## [9] "Hurricane Bill lasted 2 days"
## [10] "Hurricane Bonnie lasted 2 days"
## [11] "Hurricane Chantal lasted 3 days"
## [12] "Hurricane Chris lasted 3 days"
## [13] "Hurricane Claudette lasted 1 days"
## [14] "Hurricane Colin lasted 6 days"
## [15] "Hurricane Cristobal lasted 6 days"
## [16] "Hurricane Danielle lasted 9 days"
## [17] "Hurricane Danny lasted 6 days"
## [18] "Hurricane Debby lasted 4 days"
## [19] "Hurricane Don lasted 3 days"
## [20] "Hurricane Dorian lasted 25 days"
## [21] "Hurricane Edouard lasted 8 days"
## [22] "Hurricane Eight lasted 1 days"
## [23] "Hurricane Emily lasted 5 days"
## [24] "Hurricane Erika lasted 4 days"
## [25] "Hurricane Erin lasted 3 days"
## [26] "Hurricane Ernesto lasted 9 days"
## [27] "Hurricane Fay lasted 2 days"
## [28] "Hurricane Fernand lasted 1 days"
## [29] "Hurricane Fiona lasted 30 days"
## [30] "Hurricane Five lasted 1 days"
## [31] "Hurricane Franklin lasted 1 days"
## [32] "Hurricane Fred lasted 30 days"
## [33] "Hurricane Gabrielle lasted 9 days"
## [34] "Hurricane Gaston lasted 1 days"
## [35] "Hurricane Gert lasted 3 days"
## [36] "Hurricane Gonzalo lasted 7 days"
## [37] "Hurricane Gordon lasted 5 days"
## [38] "Hurricane Hanna lasted 6 days"
## [39] "Hurricane Harvey lasted 3 days"
## [40] "Hurricane Henri lasted 3 days"
## [41] "Hurricane Hermine lasted 4 days"
## [42] "Hurricane Humberto lasted 9 days"
## [43] "Hurricane Ida lasted 9 days"
## [44] "Hurricane Igor lasted 13 days"
## [45] "Hurricane Ingrid lasted 5 days"
## [46] "Hurricane Isaac lasted 30 days"
## [47] "Hurricane Jerry lasted 29 days"
## [48] "Hurricane Joaquin lasted 29 days"
## [49] "Hurricane Joyce lasted 2 days"
## [50] "Hurricane Julia lasted 8 days"
## [51] "Hurricane Karen lasted 3 days"
## [52] "Hurricane Karl lasted 4 days"
## [53] "Hurricane Kate lasted 3 days"
## [54] "Hurricane Katia lasted 30 days"
## [55] "Hurricane Kirk lasted 30 days"
## [56] "Hurricane Lee lasted 1 days"
## [57] "Hurricane Leslie lasted 30 days"
## [58] "Hurricane Lisa lasted 6 days"
## [59] "Hurricane Lorenzo lasted 3 days"
## [60] "Hurricane Maria lasted 10 days"
## [61] "Hurricane Matthew lasted 3 days"
## [62] "Hurricane Melissa lasted 1 days"
## [63] "Hurricane Michael lasted 8 days"
## [64] "Hurricane Nadine lasted 29 days"
## [65] "Hurricane Nate lasted 4 days"
## [66] "Hurricane Nicole lasted 1 days"
## [67] "Hurricane Nine lasted 3 days"
## [68] "Hurricane Ophelia lasted 29 days"
## [69] "Hurricane Oscar lasted 2 days"
## [70] "Hurricane Otto lasted 3 days"
## [71] "Hurricane Patty lasted 2 days"
## [72] "Hurricane Paula lasted 4 days"
## [73] "Hurricane Philippe lasted 29 days"
## [74] "Hurricane Rafael lasted 5 days"
## [75] "Hurricane Richard lasted 5 days"
## [76] "Hurricane Rina lasted 5 days"
## [77] "Hurricane Sandy lasted 7 days"
## [78] "Hurricane Sean lasted 3 days"
## [79] "Hurricane Shary lasted 2 days"
## [80] "Hurricane Ten lasted 1 days"
## [81] "Hurricane Tomas lasted 30 days"
## [82] "Hurricane Tony lasted 3 days"
## [83] "Hurricane Two lasted 1 days"
## [84] "Hurricane Two lasted 2 days"